home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / RBBSMAIL.T < prev    next >
Text File  |  1991-02-16  |  3KB  |  65 lines
  1.  if !c return
  2.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  3.  : Licensed for use at your own risk without fee. Altered versions,
  4.  : when distributed, must be clearly marked as altered and accompanied
  5.  : by the originals.
  6.  :
  7.  : Send an Outbound RBBS Mail File
  8.  : 1st line: target,subject,security
  9.  : Target: User name or ALL
  10.  : Security: R for private, otherwise public
  11.  : Remainder of file is the memo: (72 chars/line, 50 lines maximum)
  12.  display inhibit;open -!g %item;display noinhibit
  13.  setc z9 \032;if !t goto mailinvd
  14.  grab z1;if !%z1||Iz9,z1||!t goto mailinvd
  15.  split z1 , , ;ife !%z1 goto mailinvd;setc z0 \U%z0
  16.  ife iz0,A set z0 ALL;else ife iz0,S set z0 SYSOP
  17.  setc z2 \U%z2 ife "!iz2,R" set z2 "";if "iz0,ALL" set z2 ""
  18.  setc z9 \032;grab z3;if Iz9,z3||!t goto mailinvd
  19. mailok:
  20.  pat;pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  21.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  22.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  23.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  24.  pat 12 "--]\r" "@set z9 3";pat 13c "TO " "@set z8 3";pat 14c "To " "@set z8 3"
  25.  pat 15c "ivate" "@set z8 4";pat 16c "IVATE" "@set z8 4";pat 17c "estrict" "@set z8 4"
  26.  pat 18c "ubject" "@set z8 5";pat 19c "UBJECT" "@set z8 5";mput E\r
  27. waitpr:
  28.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  29.  ife iz9,2 mput \r goback waitpr;if iz9,3 goto mailnext
  30.  mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b;if iz8,0 mput \r goback waitpr
  31.  ife iz8,1 mput c\r goback waitpr;if iz8,2 goto mailinvr
  32.  ife iz8,3 mput \T%z0 mput \r goback waitpr;if iz8,4 mput %z2\r goback waitpr
  33.  mput \T%z1 mput \r goback waitpr
  34. mailnext:
  35.  pat;ife %z3 mput \T%z3 mput \r;else mput " \r"
  36.  pat 0c \b;pat 1i \n;wait -f10;if n bye;return
  37.  if 0 pat;pat 0 ":";pat 1 "Edit";pat 2 "EDIT"
  38.  else pat;pat 0i ":";pat 1i "Edit";pat 2i "EDIT"
  39.  wait -f20;if n bye;return
  40.  grab z3;if t&&Iz9,z3 closetx
  41.  if !1&&!2 ife t goback mailnext;pat;mput \r;pat 1 "Edit";wait -f20;if n bye;return
  42.  : (A)bort, (C)ontinue, (D)elete, (E)dit, (H)elp, (I)nsert, (L)ist, (S)ave
  43.  pat;pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  44.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  45.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  46.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  47.  pat 12c Abort "@set z8 3";pat 13c ABORT "@set z8 3";pat 14c Abort "@set z8 3"
  48.  mput s\r
  49. waitsv:
  50.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  51.  ife iz9,2 mput \r goback waitsv;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  52.  ife iz8,0 mput \r goback waitsv;if iz8,1 mput c\r goback waitsv
  53.  ife iz8,3 mput y\r goback waitsv;if t goback mailok
  54.  del %item
  55.  pat;return
  56. mailinvr:
  57.  echoc "File %item not accepted as a mail file"
  58.  if t nolog closetx
  59.  pat;return
  60. mailinvd:
  61.  echoc "Improper File - %item"
  62.  if t nolog closetx
  63.  : del %item
  64.  return
  65.